home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Array Access / Lookup-R < prev   
Encoding:
Text File  |  1986-10-27  |  563 b   |  35 lines  |  [TEXT/MSBB]
  1. PRINT "Real Array Lookup"
  2. PRINT "100,000 Iterations"
  3.  
  4. DIM a(1000)
  5. FOR i% = 1 TO 1000
  6.    a(i%) = 1000.123+i%
  7. NEXT i%
  8.  
  9. start! = TIMER   ' calculate the overhead!
  10. PRINT TIME$
  11. FOR i% = 1 TO 100
  12.     FOR j% = 1 TO 1000
  13.     NEXT j%
  14. NEXT i%
  15. finish! = TIMER
  16. PRINT TIME$
  17. overhead! = finish! - start!
  18.  
  19. start! = TIMER
  20. FOR i% = 1 TO 100
  21.     FOR j% = 1 TO 1000
  22.         c = a(j%)
  23.     NEXT j%
  24. NEXT i%
  25.  
  26. finish! = TIMER
  27.  
  28. PRINT "finish! = ";finish!
  29. PRINT "start!  = ";start!
  30. PRINT "overhead! = ";overhead!
  31.  
  32. PRINT ((finish! - start!)-overhead!); " seconds"
  33. WHILE INKEY$ = "" : WEND
  34.  
  35.